home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / h / fasl_global.h < prev    next >
C/C++ Source or Header  |  1987-06-04  |  1KB  |  55 lines
  1. /*
  2. (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984.  All rights reserved.
  3. */
  4.  
  5. /*
  6.     fasl global variables
  7. */
  8.  
  9. char    fas_io_buff[FAS_BUFF_LEN];    /* io buffer */
  10. char    fas_table_buff[FAS_BUFF_LEN];    /* partition table */
  11. char    fas_addr_buff[FAS_BUFF_LEN];    /* partition addr buffer */
  12.  
  13. char    *fas_buffp;            /* io buff ptr */
  14. char    *fas_temp_buff;            /* temp buff ptr */
  15. char    *fas_name_p, *fas_name_end;    /* symbol name */
  16. int    fas_temp_curr, fas_temp_last;    /* temp record no */
  17.  
  18. int    fas_addr_rec_first;
  19. int    fas_addr_rec_curr;
  20. int    vs_base_no, vs_top_no;        /* partition no */
  21. short    datab_rev;            /* data block rev */
  22.  
  23. int    fas_relocation_by_table;
  24. short    max_part_no;            /* max part. number */
  25. PART_TABLE_P    part_table_p;        /* patition table ptr */
  26. short    *fas_rstart;            /* memory start addr */
  27.  
  28. int    (*fas_routine_addr)();        /* object init routine addr */
  29. char    fas_routine_name[] = "init";    /* object init routine name */
  30.  
  31. #ifdef    AOSVS
  32. short    fas_stchan = -1;        /* .st file channel */
  33. char    fas_temp_name[] = "?000.LOADER.TMP";
  34. #endif
  35.  
  36. #ifdef    DGUX
  37. char    fasltemporg[] = "fasltmp.XXXXXX";
  38. char    fasltempname[128];
  39.  
  40. FILE    *faslin;
  41. FILE    *fasltemp;
  42.  
  43. char    *faslbuff;
  44. char    *faslbuff1;
  45.  
  46. char    faslsymbuff[SYMBOL_TABLE_MAX][BUFSIZ];        /* symbol table */
  47.  
  48. #endif
  49.  
  50. int    fas_temp_flush;        /* flush when read in temp file */
  51.  
  52. int    fas_short_nrel;        /* short nrel area addr */
  53. int    fas_short_end;        /* short nrel area end addr */
  54. int    fas_short_no;        /* short nrel partition no */
  55.